﻿Imports ClasesRestaurante

Public Class FormAdmPedidos

    Private pedidoActual As Pedido

    Private Sub FormAdmPedidos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Limpiar()
        CargarComboBox()
    End Sub

    Private Sub FormAdmPedidos_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Limpiar()
        CargarComboBox()
    End Sub

    Private Sub Limpiar()

        lblNombre.Visible = False
        lblFecha.Visible = False
        lblPrecioTotal.Visible = False

        richPedido.BackColor = Color.White
        richPedido.Clear()

    End Sub

    Private Sub CargarComboBox()
        cboPedidos.Items.Clear()
        For i As Integer = 0 To PedidosRestaurante.Keys.Count - 1
            If PedidosRestaurante(PedidosRestaurante.Keys(i)).Confirmado = True Then
                cboPedidos.Items.Add(PedidosRestaurante.Keys(i))
            End If
        Next
    End Sub

    Private Sub cboPedidos_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboPedidos.SelectedIndexChanged

        pedidoActual = PedidosRestaurante(cboPedidos.Text)

        lblNombre.Visible = True
        lblFecha.Visible = True
        lblPrecioTotal.Visible = True

        lblNombre.Text = pedidoActual.NombreCliente
        lblFecha.Text = pedidoActual.FechaPedido
        lblPrecioTotal.Text = pedidoActual.PrecioTotal

        cargarRichBox()

    End Sub

    Private Sub cargarRichBox()

        richPedido.Clear()

        richPedido.SelectionFont = New Font("Street Humouresque", 15, FontStyle.Bold)
        richPedido.SelectedText = pedidoActual.NombreCliente & vbNewLine

        richPedido.SelectionFont = New Font("Street Humouresque", 11, FontStyle.Bold)
        richPedido.AppendText(pedidoActual.FechaPedido & vbNewLine & vbNewLine)

        For i As Integer = 0 To pedidoActual.CantidadProductos.Count - 1

            richPedido.SelectionFont = New Font("Street Humouresque", 13, FontStyle.Bold)
            richPedido.SelectionColor = Color.Orchid
            richPedido.AppendText(pedidoActual.CantidadProductos.Keys(i) & vbNewLine)

            richPedido.SelectionFont = New Font("Street Humouresque", 11, FontStyle.Regular)
            richPedido.SelectionColor = Color.Black
            richPedido.AppendText(pedidoActual.CantidadProductos(pedidoActual.CantidadProductos.Keys(i)) & " unidad/es a ")
            richPedido.AppendText(pedidoActual.PrecioProductos(pedidoActual.PrecioProductos.Keys(i)) & " euro/s cada uno/a son: ")
            richPedido.AppendText((pedidoActual.CantidadProductos(pedidoActual.CantidadProductos.Keys(i)) * pedidoActual.PrecioProductos(pedidoActual.PrecioProductos.Keys(i))) & " euros ." & vbNewLine)

        Next

        richPedido.AppendText(vbNewLine)

        richPedido.SelectionFont = New Font("Street Humouresque", 15, FontStyle.Bold)
        richPedido.AppendText("El precio del pedido es: " & pedidoActual.PrecioTotal & " euros.")

    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click

        PedidosRestaurante.Remove(cboPedidos.Text)
        Limpiar()
        CargarComboBox()

    End Sub

End Class